home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / telecomm / uniterm.zoo / example2.mac < prev    next >
Encoding:
Text File  |  1990-04-06  |  711 b   |  28 lines
  1. #####################################
  2. # Test Macro for UniTerm V2.0c 002  #
  3. # Copyright 1988 Simon Poole        #
  4. #                                   #
  5. #####################################
  6. :1
  7. # get a line of input
  8. if(!input('Please enter a single number:')) exit(0)
  9. # get the integer and set integer variable one to it's value
  10. set(1,.$T)
  11. # a simple loop
  12. :2
  13. #  write the number to the screen
  14. #  this is pretty slow since DW/DH chars are rather slow
  15. #
  16. #  top half
  17.    echo('\r\n\033#3')
  18.    echo("@1)
  19. #  bottom half
  20.    echo('\r\n\033#4')
  21.    echo("@1)
  22. # decrement the counter
  23.    set(1,add(@1,-1))
  24. if(@1) jump(2)
  25. # back to the beginning again
  26. jump(1)
  27. #####################################
  28.